10 REM * WECKUHR *
20 PRINT"[147][158]":POKE53281,0:POKE53280,0:POKE53272,21
30 PRINT"[147]";TAB(15)" WECKUHR ":PRINT"EINGABE:STD./MIN./SEK.=124530"
35 PRINT"= 12 UHR, 45 MIN., 30 SEK."
40 INPUT"WIEVIEL UHR IST ES ";TI$
50 INPUT"ALARM 1            ";A1$
60 INPUT"ALARM 2            ";A2$
70 PRINT"[147][145][145][209][157][209][209][157][145][145][209]"
80 PRINT"                                        "
90 PRINT"                                        "
100 Z1$=LEFT$(A1$,2)+":"+MID$(A1$,3,2)+":"+RIGHT$(A1$,2)
110 Z2$=LEFT$(A2$,2)+":"+MID$(A2$,3,2)+":"+RIGHT$(A2$,2)
120 IFA1$<>""THENPRINT"ALARM 1   ";Z1$
130 IFA2$<>""THENPRINT"ALARM 2   ";Z2$
140 T1=VAL(LEFT$(TI$,1)):PRINT"";:IFT1=0THENT1=10
150 ONT1GOSUB380,400,420,440,460,480,500,520,540,560
160 T2=VAL(MID$(TI$,2,1)):PRINT"";:IFT2=0THENT2=10
170 ONT2GOSUB380,400,420,440,460,480,500,520,540,560
180 T3=VAL(MID$(TI$,3,1)):PRINT"";:IFT3=0THENT3=10
190 ONT3GOSUB380,400,420,440,460,480,500,520,540,560
200 T4=VAL(MID$(TI$,4,1)):PRINT"";:IFT4=0THENT4=10
210 ONT4GOSUB380,400,420,440,460,480,500,520,540,560
220 T5=VAL(MID$(TI$,5,1)):PRINT"";:IFT5=0THEN
230 IFT5=0THENT5=10
240 ONT5GOSUB380,400,420,440,460,480,500,520,540,560
250 T6=VAL(RIGHT$(TI$,1)):PRINT"";
260 IFT6=0THENT6=10
270 ONT6GOSUB380,400,420,440,460,480,500,520,540,560
280 S2=VAL(MID$(TI$,2,1)):S4=VAL(MID$(TI$,4,1))
290 IFTI$=A1$THENGOSUB580
300 IFTI$=A2$THENGOSUB580
310 GETA$
320 IFA$="^"THENPRINT"[147][154]":POKE53281,0:POKE53280,0:POKE53272,21:END
330 PRINT"'^' = ENDE"
340 IFS2<>T2THEN140
350 IF24<>T4THEN180
360 IFT6=10THEN220
370 GOTO250
380 PRINT"   [209][157][157][157][157]  [209][209][157][157][157][157] [209] [209][157][157][157][157][209]  [209][157][157][157][157]   [209][157][157][157][157]   [209][157][157][157][157]   [209]"
390 RETURN
400 PRINT" [209][209] [157][157][157][157][209][160][160][209][157][157][157][157]   [209][157][157][157][157]  [209] [157][157][157][157] [209]  [157][157][157][157][209]   [157][157][157][157][209][209][209][209]"
410 RETURN
420 PRINT" [209][209] [157][157][157][157][209]  [209][157][157][157][157]   [209][157][157][157][157]  [209] [157][157][157][157]   [209][157][157][157][157][209]  [209][157][157][157][157] [209][209] "
430 RETURN
440 PRINT"[209]   [157][157][157][157][209]   [157][157][157][157][209]   [157][157][157][157][209] [209] [157][157][157][157][209][209][209][209][157][157][157][157]  [209] [157][157][157][157]  [209] "
450 RETURN
460 PRINT"[209][209][209][209][157][157][157][157][209]   [157][157][157][157][209]   [157][157][157][157][209][209][209] [157][157][157][157]   [209][157][157][157][157][209]  [209][157][157][157][157] [209][209] "
470 RETURN
480 PRINT" [209][209] [157][157][157][157][209]  [209][157][157][157][157][209]   [157][157][157][157][209][209][209] [157][157][157][157][209]  [209][157][157][157][157][209]  [209][157][157][157][157] [209][209] [146]"
490 RETURN
500 PRINT"[209][209][209][209][157][157][157][157]   [209][157][157][157][157]   [209][157][157][157][157]  [209] [157][157][157][157] [209]  [157][157][157][157][209]   [157][157][157][157][209]   [146]"
510 RETURN
520 PRINT" [209][209] [157][157][157][157][209]  [209][157][157][157][157][209]  [209][157][157][157][157] [209][209] [157][157][157][157][209]  [209][157][157][157][157][209]  [209][157][157][157][157] [209][209] [146]"
530 RETURN
540 PRINT" [209][209] [157][157][157][157][209]  [209][157][157][157][157][209]  [209][157][157][157][157] [209][209][209][157][157][157][157]   [209][157][157][157][157][209]  [209][157][157][157][157] [209][209] [146]"
550 RETURN
560 PRINT" [209][209] [157][157][157][157][209]  [209][157][157][157][157][209]  [209][157][157][157][157][209]  [209][157][157][157][157][209]  [209][157][157][157][157][209]  [209][157][157][157][157] [209][209] [146]"
570 RETURN
580 V=54272
590 POKE V+24,15
600 POKE V+5,25:POKEV+6,255
610 POKE V,100:POKE V+1,25
620 FOR I=1 TO 15
630 POKE V+4,17
640 FOR J=1 TO 500:NEXT
650 POKE V+4,0
660 FOR J=1 TO 500:NEXT
670 NEXT
680 RETURN